home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / listing 7 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  906 b   |  33 lines
  1. 100 REM DIRECTORY-SORTER
  2. 101 REM SORTIERT DIRECTORY ALPHABETISCH
  3. 102 REM BEI VIELEN EINTRAEGEN BITTE
  4. 103 REM ETWAS GEDULD (MAX. 5.MIN)
  5. 104 REM SORTIERT AUCH GESCRATCHTE FILES
  6. 105 REM MIT, STELLT SIE ABER NICHT
  7. 106 REM WIEDER HER ! SORTIERALGORITHMUS
  8. 107 REM KANN SICH IN EINEM SOLCHEN FALL
  9. 108 REM IN EINER ENDLOSSCHLEIFE VER-
  10. 109 REM HEDDERN. ABHILFE: NACH 3-4 MIN.
  11. 110 REM STOP-TASTE DRUECKEN, DANN
  12. 111 REM GOTO 210 EINGEBEN. SIND EINTR.
  13. 112 REM DANN NOCH NICHT VOLLKOMMEN SOR-
  14. 113 REM TIERT, NOCHMALS FUER EINIGE
  15. 114 REM MINUTEN LAUFEN LASSEN.
  16. 115 REM ACHTUNG !!! NUR ZUSAMMEN MIT
  17. 116 REM DEN UNTERPROGRAMMEN 1 & 2
  18. 117 REM ABLAUFFAEHIG !!!
  19. 118 :
  20. 119 :
  21. 120 DIMDD$(144)
  22. 130 MM=MM+1:GOSUB1000
  23. 140 IF DD$=NN$THENMM=MM-1:GOTO160
  24. 150 DD$(MM)=DD$:DD$="":GOTO130
  25. 160 FOR GG=1TOMM-1
  26. 170 IF MID$(DD$(GG),4,16)<MID$(DD$(GG+1),4,16)THEN 190
  27. 180 HH$=DD$(GG):DD$(GG)=DD$(GG+1):DD$(GG+1)=HH$:FF=1
  28. 190 NEXT GG
  29. 200 IF FF THEN FF=0:GOTO160
  30. 210 II=MM
  31. 220 FORMM=1TOII:DD$=DD$(MM):GOSUB2000:NEXTMM
  32. 230 END
  33.